//==================================
// [] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// ---------------------------------
// - q ¾} - 
//===================================
// G2.4a
//===================================

prt_church,16,41,4	script	 q#prst	60,{
	if (Upper == 1 && .@AllowHPAssist != 1) {
		mes "[ ]";
		mes "AOsϥͤᬡbo@ɤWH";
		mes "wԱа|`ۧA";
		next;
		mes "[ ]";
		mes "n`ȳo@ɤW";
		mes "Awg֦ԳӪOqMiF";
		mes "@OA....";
		close;
	}
	if (BaseJob != Job_Acolyte) {
		if (BaseJob == Job_Priest) {
			mes "[ ]";
			mes "@OAAq̥Sjf";
			mes "^NAASAӨo̤F...";
			next;
			mes "[ ]";
			mes "O_M`@ˡAaۯlk̨VO";
			mes "ѬFƧکO?";
			next;
			switch(select("ڬOLAA۩I:ڬOQUAڤ@_ӪoA:̪񬡪ܨWAƱAU")) {
			case 1:
				mes "[ ]";
				mes "OoˡAڤ]Lܦn";
				mes "ڸL̥Snf̰ݦn";
				next;
				mes "[ ]";
				mes "ڭ̲qOťqN~Өoӥ@";
				mes "ƱA̤nѤFHɳnUP򪺤H...";
				close;
			case 2:
				mes "[ ]";
				mes "Oo˰....ܦnQk";
				mes "оɨ䥦AơA]Oڭ̲qѰOƱ";
				next;
				mes "[ ]";
				mes "LҦL{L";
				mes "AơALݭngLim";
				next;
				mes "[ ]";
				mes "ĤGӹL{uX]צvA";
				mes "AiHiJҳUL";
				mes "t~Fn@_iA";
				mes "ٻݭn@^3051FDB]^000000";
				next;
				mes "[ ]";
				mes "A|UAƪX]צ?";
				next;
				if (select("OAڷ|ɤOUL:ݷ|ڷ|AL") == 1) {
					if (countitem(2608) > 0) {
						mes "[ ]";
						mes "ڴNǰeAAƪצҤF";
						mes "ڦVSݦn";
						next;
						mes "[ ]";
						mes "ƱA|nnоɡA覨nq";
						close2;
						warp "job_prist",26,178;
						end;
					}
					mes "[ ]";
					mes "...AnS^3051FDB]^000000";
					next;
					mes "[ ]";
					mes "Qn@_ihܡA";
					mes "NǳƦn^3051FDB]^000000ALӧa";
					close;
				}
				mes "[ ]";
				mes "OACCǳƧa";
				mes "ƱAǳ^3051FDB]^000000A^";
				close;
			case 3:
				mes "[ ]";
				mes "[o....AOҮdlk";
				mes "ڦbHWëAA_hWP˪믫";
				next;
				mes "[ ]";
				mes "...ХûUڭ̡AOڭ...";
				mes "ڭ̪ߤ޹JxfҳwӤʷn...";
				next;
				mes "[ ]";
				mes "o̦zlkbW...";
				mes "L𮧧aAƱHzOAU˲wU...";
				percentheal 90,0;
				next;
				percentheal 0,90;
				mes "[ ]";
				mes "ӬOnhF";
				mes "ЧAA^h@AǹFN...";
				mes "@OA...";
				close;
			}
		}
		else if (BaseClass == Job_Novice) {
			mes "[ ]";
			mes "@OAAĤl...";
			mes "o̬OwԤjt";
			mes "Ʊӧڶ?";
			next;
			switch(select("ڷQ¾A:ڷQ¾^5533FFq^000000:ڥuOӳ}@U")) {
			case 1:
				mes "[ ]";
				mes "...AO¾Aƪ?";
				mes "A¾nϤVжh...";
				break;
			case 2:
				mes "[ ]";
				mes "...nqeAnAƾ";
				mes "A¾ϤVжhݴNiH...";
				break;
			case 3:
				mes "[ ]";
				mes "Чo̷ۤva@ˡAnn𮧤A}a....";
				mes "tO@ɤW@Ӧa賣w";
				break;
			}
			next;
			mes "[ ]";
			mes "@OA....";
			close;
		}
		else {
			mes "[ ]";
			mes "@OAḀSjf";
			mes "o̬OwԸt";
			mes "Ʊӧڶ?";
			next;
			switch(select("ЧAiD󲽥q:ڥuOӳ}}")) {
			case 1:
				mes "[ ]";
				mes "ҿײqNOǹFNH";
				mes "O¾AƤAVOgLеLצo쪺G...";
				next;
				mes "[ ]";
				mes "AƪJobLvb40ũΥHWA";
				mes "AqLXӸշҤNiH¾";
				mes "iHoc]MͳNjOAUޯ]|W[...";
				next;
				mes "[ ]";
				mes "bBgcaA|ܭn";
				mes "ڭ̲qϩRANOFOHө^mVO";
				next;
				mes "[ ]";
				mes "LApGJLqANjDL^m";
				mes "qAiHO@UOH...";
				next;
				mes "[ ]";
				mes "۷|oQq^߱hUOH";
				mes "۹諸AUH]OnV§P¹~";
				next;
				mes "[ ]";
				mes "o̤DԤԲ";
				mes "pLqAAnnL...";
				next;
				mes "[ ]";
				mes "@OA...";
				next;
				break;
			case 2:
				mes "[ ]";
				mes "Чo̷@a@˩P";
				mes "bo@ɤWta賣٦w";
				next;
				mes "[ ]";
				mes "@OA....";
				next;
				break;
			}
			mes "[ ]";
			mes "Well...";
			mes "May God";
			mes "bless you.";
			close;
		}
	}
	if (PRIEST_Q == 0) {
		mes "[ ]";
		mes "Aڦƶ?";
		next;
		switch(select("ڷQ¾q:ڥuOӰݭԱz")) {
		case 1:
			mes "[ ]";
			mes "Oo˰...AƱ榨q...";
			mes "]|b֧AM";
			next;
			mes "[ ]";
			mes "ڬObwԭtdX]DСA";
			mes "Wsi뺸ZS";
			mes "ФnۭtAPI";
			next;
			mes "[ ]";
			mes "ApGn¾qANnqLXӭצ";
			mes "beAA¾~Ťɨ40ũΥHW~";
			next;
			mes "[ ]";
			mes "FKצAЧA¾ӽЧa";
			mes "A{bNnӽ¾צF?";
			next;
			if (select("OAڭn}lqצ:ڦAҼ{ݬ") == 1) {
				if (JobLevel < 40) {
					mes "[ ]";
					mes "ܿѪA{b٤ন@Ӳq...";
					mes "ЧA@ɦUaAghƱAӧa";
					next;
					mes "[ ]";
					mes "qOqAAƬOAơAUU۪ϩR...";
					mes "ƱɾɦALӳo̡Aڷ|bo̵A";
					close;
				}
				if (SkillPoint) {
					mes "[ ]";
					mes "...A٦SǹLޯn";
					mes "ݭnޯǷ|ALӥӽЧa...";
					close;
				}
				set PRIEST_Q,1;
				mes "[ ]";
				mes "ܦnAڴNiDA󲽥qצ";
				mes "Mצ{ܵhWAƱAQJAA" +strcharinfo(0)+ "";
				next;
				mes "[ ]";
				mes "FqAnhi樵§";
				mes "̧ǥhLϰ줤צ檺T쯫AA^ӴNnF";
				next;
				mes "[ ]";
				mes "ĤGOX]צ";
				mes "ҿX]ANOnc]þԳӻbצ";
				next;
				mes "[ ]";
				mes "ĤTO^m}";
				mes "OAqUOHAåBǹFNN@p";
				next;
				mes "[ ]";
				mes "LpGO¾~Ŧb50HWAơANiHٲ§";
				mes "oܪAƤwg۷VOF...";
				next;
				if (JobLevel == 50) {
					mes "[ ]";
					mes "A¾~Ťwg50ŤF";
					mes "uOWAF";
					mes "ڬݧAO۷ꪺA";
					next;
					mes "[ ]";
					mes "ANWiX]צa";
					mes "X]צOLqP檺";
					next;
					mes "[ ]";
					mes "ڬ۫HHAOiHPJA";
					mes "pGLqS̩nf@_i檺ܡAQవn";
					next;
					mes "[ ]";
					mes "A{bN}lX]צ?";
					set PRIEST_Q,5;
					next;
					if (select("ж}la:ڷǳƤ@UAL") == 1) {
						mes "[ ]";
						mes "nAڰeAX]צ檺ah";
						next;
						mes "[ ]";
						mes "FAЧAhS߰X]צ檺Ʊ";
						next;
						warp "job_prist",24,180;
						end;
					}
					mes "[ ]";
					mes "naAЧAnnǳƤALӧa";
					mes "ƱA¾Q";
					close;
				}
				mes "[ ]";
				mes "AڴNiDA§";
				mes "nhwԪF_誺|dkԯA^";
				next;
				mes "[ ]";
				mes "UӬOfHפkA^";
				mes "obwԦn誺ùJϰ";
				next;
				mes "[ ]";
				mes "̫ЧAhവJ";
				mes "ťവJb_誺w԰ϰצ";
				next;
				mes "[ ]";
				mes "NЧA@p";
				mes "pG٦DܴNAЧAhݪY֭פk";
				mes "§AڦAiDAU@^X";
				next;
				mes "[ ]";
				mes "@OA...";
				close;
			}
			mes "[ ]";
			mes "Цbo̦nn";
			mes "]g`wAӸtX";
			mes "@WҫOA";
			close;
		case 2:
			mes "[ ]";
			mes "O...ڹLܦn";
			mes "AƧAdUnѰOϩRA";
			mes "ƱA@ͳ毫ҫܪDӦ";
			next;
			mes "[ ]";
			mes "ƱAH|ALӫXAƱUAiDLS̩nf";
			mes "@OA...";
			close;
		}
	}
	else if (PRIEST_Q == 1) {
		mes "[ ]";
		mes "?A٦bo̩O?";
		mes "DAѤF§צ?";
		next;
		if (select("nNЦAiDڤ@:|!ګiѰOO!") == 1) {
			mes "[ ]";
			mes "ur...Ĥ@}lצNo˪ܷ|ܳ·г";
			mes "ڦAiDA@ǡAƱoAOM§Ǧn";
			next;
			mes "[ ]";
			mes "ЧA||dkԯ";
			mes "LbwԪF_誺ϰצ";
			next;
			mes "[ ]";
			mes "U@ӬOn|fHפk";
			mes "oHbwԦn誺ùJϰ줤";
			next;
			mes "[ ]";
			mes "ĤTӬOവJ";
			mes "Lb_誺w԰ϰצ";
			next;
			mes "[ ]";
			mes "AЧAWp";
			mes "pGnDԲӪeܴNЧAݪY֭פk";
			mes "§AڦAiDAU@^X";
			next;
			mes "[ ]";
			mes "@OA...";
			close;
		}
		mes "[ ]";
		mes "o˶";
		mes "٦ðݪܡANЧAݤJfY֭פka";
		next;
		mes "[ ]";
		mes "NЧA֥XoAWp";
		mes "@OA";
		close;
	}
	else if (PRIEST_Q == 2) {
		mes "[ ]";
		mes "wgL|dkԯFa";
		mes "~o򻻻AuOWAF";
		next;
		mes "[ ]";
		mes "MnhfHפk";
		mes "oHbwԦn誺ùJϰ줤";
		mes "[oa";
		close;
	}
	else if (PRIEST_Q == 3) {
		mes "[ ]";
		mes "AwgLfHפkF";
		mes "oObFzVOצ檺H...";
		next;
		mes "[ ]";
		mes "Uӳ̫OnhവJ";
		mes "LbMI_ϰAЧAȥnhL";
		close;
	}
	else if (PRIEST_Q == 4) {
		set PRIEST_Q,5;
		mes "[ ]";
		mes "AwgLവJF";
		mes "ߧAQĤ@q§צ";
		next;
		mes "[ ]";
		mes "{b}lĤGqX]צ";
		mes "ڭ~]LAX]צ椣Lq@_i";
		next;
		mes "[ ]";
		mes "M{UALqS̩nfUOAnLF";
		mes "A{bNn}liX]צ?";
		next;
		if (select("ж}la:ڷǳƤ@UAL") == 1) {
			set PRIEST_Q,5;
			mes "[ ]";
			mes "nAڰeAX]צ檺ah";
			next;
			mes "[ ]";
			mes "FAЧAhS߰X]צ檺Ʊ";
			next;
			warp "job_prist",24,180;
			end;
		}
		mes "[ ]";
		mes "naAЧAnnǳƤALӧa";
		mes "ƱA¾Q";
		close;
	}
	else if (PRIEST_Q == 5) {
		mes "[ ]";
		mes "AwgǳƦniX]צFa";
		mes "ڭ̴N}la?";
		next;
		if (select("ڭn}l:ǳƦnHA") == 1) {
			mes "[ ]";
			mes "nAڰeAX]צ檺ah";
			next;
			mes "[ ]";
			mes "FAЧAhS߰X]צ檺Ʊ";
			close2;
			warp "job_prist",24,180;
			end;
		}
		mes "[ ]";
		mes "naAЧAnnǳƤALӧa";
		mes "ƱA¾Q";
		close;
	}
	else if (PRIEST_Q == 6) {
		mes "[ ]";
		mes "Aݰ_Ӭ۷h...";
		mes "LAWqᦳi|h";
		mes "ЧA[onצ";
		mes "nnADԤ@O?";
		next;
		if (select("n!ڦADԤ@:ڷǳƤ@UAL") == 1) {
			mes "[ ]";
			mes "nڰeAX]צ檺aha";
			next;
			mes "[ ]";
			mes "ЧA쩼SAХL";
			next;
			warp "job_prist",24,180;
			end;
		}
		mes "[ ]";
		mes "naAЧAnnǳƤALӧa";
		mes "ƱA¾Q";
		close;
	}
	else if (PRIEST_Q == 7) {
		mes "[ ]";
		mes "ܰAබQX]צAWAF";
		mes "ԳӻbHDAwgiH٪WO@WqF";
		next;
		mes "[ ]";
		mes "̫ЧAhY֭פk}";
		mes "unӵۤߩ`BnHΥɧAQkӦ^NiHF";
		next;
		mes "[ ]";
		mes "AڴݧA¾";
		mes "ЧAWp...";
		close;
	}
	else if (PRIEST_Q == 8) {
		mes "[ ]";
		mes "...sO?";
		mes "Aܤ٨S}O?";
		mes "qAApGs̰򥻪ߺASǳƦnܡAܮe|c]b...";
		next;
		mes "[ ]";
		mes "AA^hY֭פka";
		mes "MЧATL~}";
		mes "nMܡAFA򥻤ߺAǳƦnAڷ|iЧAAhi@§צ";
		next;
		mes "[ ]";
		mes "ЧAWp";
		mes "ӯNAЧAJӲť߲`Bn...";
		close;
	}
	else if (PRIEST_Q == 9) {
		if (SkillPoint) {
			mes "[ ]";
			mes "@U...]A٦LSǹLޯnǲ";
			mes "ЧALƪޯǷ|Aӧa...";
			close;
		}
		mes "[ ]";
		mes "ߧAAAwgFצ";
		mes "ڲ{bNA¾q";
		next;
		mes "[ ]";
		mes "...@zNzPzeoH{a";
		mes "ЧA絹oH{ƥߩ@jjNӡB";
		mes "iOqHεLaa...";
		next;
		mes "[ ]";
		mes "ƱǦLLS̩nfɡA";
		mes "@zUڭ̦bo@ɤWz_...";
		next;
		set .@joblvl,JobLevel;
		callfunc "Job_Change",Job_Priest;
		callfunc "F_ClearJobVar";
		mes "[ ]";
		mes "Awg@첽qF";
		mes "ߧA";
		mes "@zqHHsߺAULH";
		next;
		mes "[ ]";
		mes "M...FA¾\ڰeA@";
		if (.@joblvl < 50) {
			getitem 1550,1; //Book
			mes "ǹFNAAoѷ|ѧAHͥƪ";
		}
		else {
			getitem 1551,1; //Bible
			mes "ǹFNAAotg|ѧAHͥƪ";
		}
		next;
		mes "[ ]";
		mes "ڭ̴N¾";
		mes "WAF...";
		mes "֥hAna...";
		close;
	}
}

prt_church,27,24,1	script	^m פk	79,{
	mes "[Y פk]";
	if (BaseJob != Job_Acolyte) {
		if (BaseJob == Job_Priest) {
			if(Sex == 1) mes "@OAAq̥S";
			if(Sex == 0) mes "@OpAqjf";
			mes "ƱAѤ]LӥRꪺ@";
		}
		else if (Class == Job_Novice) {
			mes "@OAAS̩jf";
			mes "wԸtwA";
			next;
			mes "[Y פk]";
			mes "٨S¾~? qƸt¾Ҽ{L?";
			mes "AUOHۡAO@󦳷NqƱ";
			next;
			mes "[Y פk]";
			mes "n¾AơAи߰^5533FFϤVж̪^000000a";
			mes "۫HۯԫjۡAA]SoӬ󦳷Nq";
			next;
			mes "[Y פk]";
			mes "٦AƧVO׽mA¾~Ťɨ 40Ů";
			mes "AӨo̤]iH¾q";
			next;
			mes "[Y פk]";
			mes "ѩAثe٬OǪ̡ACCҼ{AMwa";
		}
		else {
			mes "o̬OwԱаAݭnڬAǤ?";
			next;
			if (select("ЧAiD^0000FFq^000000Ʊ:ڥuOӳ}}.") == 1) {
				mes "[Y פk]";
				mes "ҿ^0000FFq^000000NOǹFNϪ.";
				mes "Ǫ̭n¾^0000FFA^000000.bgӦ^0000FFq^000000";
				next;
				mes "[Y פk]"; 
				mes "t¾YTaMCUQZ.";
				mes "]تOF .";
				next;
				mes "[Y פk]";
				mes "M,|^0000FFq^000000߰ݥLO̦nLF ,...";
				mes "znnʨb̸̭ж̪ ?";
				next;
				mes "[Y פk]";
				mes "LڧԲӦ^zD.";
				mes "٬OЧA̸̭ж߰ݴ nF.";
				next;
			}
			mes "[Y פk]";
			mes ", @OA...";
			close;
		}
	}
	if (PRIEST_Q == 0) {
		mes "@OA...";
		mes "Aƶ?";
		next;
		switch(select("ڷQ¾q:S")) {
		case 1:
			mes "[Y פk]";
			mes "ڡAAQ¾q?";
			mes "ܦhAƤ]Q¾q";
			next;
			mes "[Y פk]";
			mes "ڪWrs@ dQS";
			mes "ڬOtdUA¾פk";
			mes "ƱگUA¾";
			next;
			mes "[Y פk]";
			mes "i]ڬObojAҥHݹLܦhH¾q";
			mes "ҥHڲ{b٦boU߷QqH";
			next;
			mes "[Y פk]";
			mes "n¾qgLTqצ";
			mes "gta§BX]צB}...~iHq";
			next;
			mes "[Y פk]";
			mes "pGAn¾Ah̭D";
			mes "{biHi¾צF";
			next;
			mes "[Y פk]";
			mes "pGAצ椤JDιJ줣ѤƴNЧAӰݧڧa";
			mes "ڷ|ɧکү઺UA";
			close;
		case 2:
			mes "[Y פk]";
			mes "ЧAP𮧧a";
			mes "t̥SnfӻNa@˪aAЧAP𮧧a";
			next;
			mes "[Y פk]";
			mes "UAӮɧƱAiDڨLS̩nf";
			mes "@OA...";
			close;
		}
	}
	else if (PRIEST_Q == 1) {
		mes "[Y פk]";
		mes "wg}li樵§FaAMWLƱA[o";
		mes "Ĥ@ӭn|NO|dkԯ";
		next;
		mes "[Y פk]";
		mes "LObwԪF_誺a";
		mes "_@AFTgLϰN|ݨ";
		next;
		mes "[Y פk]";
		mes "AiHqJfݨ쯫";
		mes "M]iHF@A_@...AF訫NiHF";
		next;
		mes "[Y פk]";
		mes "LҦϰ즳ܦhUl";
		mes "L]|X{¦WsJUl]";
		next;
		mes "[Y פk]";
		mes "Anh||dkԯAA|fHפkAMhവJNiHF";
		mes "M]iH~o̦AT{@";
		next;
		mes "[Y פk]";
		mes "AЧAWp";
		mes "YϨ̫Y]nAХ[o";
		close;
	}
	else if (PRIEST_Q == 2) {
		mes "Awg|F|dkԯF";
		mes "oӭnh|fHפk";
		mes "fHפkbùJ@ӧ";
		next;
		mes "[Y פk]";
		mes "ťoObùJFϰ쪺@Өצ椤";
		mes "ӬO...ЧA_JӧN|oo";
		next;
		mes "[Y פk]";
		mes "M]QMLH@˥hצA";
		mes "L{bثeٷQULHA";
		mes "o]O@ťqNk";
		next;
		mes "[Y פk]";
		mes "ЧAWp";
		mes "M|ǨWЧAn]өAFѶ?";
		close;
	}
	else if (PRIEST_Q == 3) {
		mes "̫ЧALവJA^ӴNiHF";
		mes "LbwԪ_Aťby";
		next;
		mes "[Y פk]";
		mes "Щ_@A⦸NnF";
		mes "ګĳ訫֡A|e@I";
		next;
		mes "[Y פk]";
		mes "M§AO¾צ٨SO";
		mes "Ф@pߧڴݧAබQk...";
		close;
	}
	else if (PRIEST_Q == 4) {
		mes "wA^";
		mes "WܨWa?";
		mes "{bAiHhiDФiU@q";
		next;
		mes "[Y פk]";
		mes "MX]צܨWAڬ۫HA@wබQ";
		mes "Mڤ]ܷQUAAOڥbǫULAƤ~";
		next;
		mes "[Y פk]";
		mes "pGHUAצNnF";
		mes "AиWp!";
		close;
	}
	else if (PRIEST_Q == 5) {
		mes "A٨ShiX]צ?";
		mes "ڤ]An|oצ檺Ӹ`...";
		next;
		mes "[Y פk]";
		mes "ڥuĳAnUǳơAåBƱQgb";
		mes "Aun۫HۤvN৹";
		next;
		mes "[Y פk]";
		mes "pGnDԲӪƱAЧAh߰ݭצS";
		mes "DФ]O۷ˤHAL|߫ɧA";
		close;
	}
	else if (PRIEST_Q == 6) {
		mes "צܨWa?";
		mes "LЧAn";
		mes "AnԳӥgb~Ӧnq";
		next;
		mes "[Y פk]";
		mes "pGqeܡAХL@_P";
		mes "L̥iHUAiX]צ檺Ĥ@q";
		next;
		mes "[Y פk]";
		mes "@OA...";
		mes "X]צ浲AЧAALӧ";
		close;
	}
	else if (PRIEST_Q == 7) {
		mes "WAF!";
		mes "AwgQ^ӤFAA{bwgFF¾̫ᶥqF";
		next;
		mes "[Y פk]";
		mes "AFA¾uqAUӧڭ̶}li}";
		mes "ЧA۹^ڪD";
		next;
L_AskQuestions:
		mes "[Y פk]";
		mes "ڭ̶}la";
		next;
		mes "[Y פk]";
		mes "qHAA@NN@ͩ^m󯫶?";
		next;
		if (select("O:O") == 2) {
			set PRIEST_Q,8;
			mes "[Y פk]";
			mes "|...|o˻O...";
			mes "ݨӧAGʥFqߺA...";
			next;
			mes "[Y פk]";
			mes "ЧAgL`{ALӧa";
			mes "ثeAFܮeocb";
			close;
		}
		mes "[Y פk]";
		mes "A|QίӿѨDۤvQq?";
		next;
		if (select("|:|") == 1) {
			set PRIEST_Q,8;
			mes "[Y פk]";
			mes "oˬO檺";
			mes "qणOFѨDQqӳQᤩ";
			mes "A|o˪QkӷqO?";
			next;
			mes "[Y פk]";
			mes "ЧAAhҲqB@ߺAALӧa";
			mes "oطQku|@UvTӼZ";
			close;
		}
		mes "[Y פk]";
		mes "Ab԰|FOHӨϥΦۤvO?";
		next;
		if (select("|:|") == 2) {
			mes "[Y פk]";
			set PRIEST_Q,8;
			mes "oˬO檺";
			mes "ڭ̲qҾ֦OOFUOHӨϥΪ...";
			mes "ެO˪Hڭ̳nn...";
			next;
			mes "[Y פk]";
			mes "Ahݤ@Ua...";
			mes "AN|FѸӰǤF...";
			close;
		}
		mes "[Y פk]";
		mes "A|FUOHA묹ۤv]bҤ?";
		next;
		if (select("|:|") == 2) {
			mes "[Y פk]";
			mes "...O";
			mes "NOo˪";
			mes "pG묹pڦӧjڬOܰj";
			next;
			mes "[Y פk]";
			mes "A^hAҼ{ҿ묹ALӧa";
			mes "O󻡨Ӯe...";
			set PRIEST_Q,8;
			close;
		}
		mes "[Y פk]";
		mes "A|bMϰ̡A|MOH@ˡu@~Wv?";
		next;
		if (select("|:|") == 1) {
			mes "[Y פk]";
			mes "oˬO檺";
			mes "Ao˰uOq]|vTOH";
			mes "NAjnWW]|Hz|A";
			next;
			mes "[Y פk]";
			mes "NOAǹFNAЧAnۭ@...";
			set PRIEST_Q,8;
			close;
		}
		mes "[Y פk]";
		mes "A|@Ǥ@ULH԰?";
		next;
		if (select("|:|") == 1) {
			mes "[Y פk]";
			mes "oˬOܦMI";
			mes "쪫O|vTOH";
			mes "ެO]άOc]...o˪|ʬOeԪ";
			next;
			mes "[Y פk]";
			mes "o˰Wݰ_ӬOULHAڤWOcƪ";
			mes "AAQ@Q쩳򰵤~OӦnk";
			set PRIEST_Q,8;
			close;
		}
		mes "[Y פk]";
		mes "A||qNӥͦsAqNӦO?";
		next;
		if (select("|:|") == 2) {
			mes "[Y פk]";
			mes "Ao˪٤নq";
			mes "OuȪ...YϯNOp]nqN";
			next;
			mes "[Y פk]";
			mes "t~ڭ̲q_O";
			mes "AAҼ{@ͦsMAӻOƻNqa";
			set PRIEST_Q,8;
			close;
		}
		mes "[Y פk]";
		mes "ڭ̴NҧAӿ";
		mes "̫AЧAo}AһL";
		next;
		if (select("ڵo}:n") == 1) {
			set PRIEST_Q,9;
			mes "[Y פk]";
			mes "Ao˧ڭ̴NF";
			mes "ЧADШ¾qa";
			next;
			mes "[Y פk]";
			mes "ЧAרa]nO...";
			mes "ڭ̳OS̩nfo...";
			mes "Ʊ毫|OA...";
			close;
		}
		mes "[Y פk]";
		mes "....";
		next;
		mes "[Y פk]";
		mes "٤...A߲zǳ٤";
		mes "A٤¾q";
		next;
		mes "[Y פk]";
		mes "...̦nnq§_a...";
		mes "Lnw߫AAӧڧa";
		next;
		mes "[Y פk]";
		mes "Ʊ毫|OA...";
		set PRIEST_Q,8;
		close;
	}
	else if (PRIEST_Q == 8) {
		mes "....";
		next;
		mes "[Y פk]";
		mes "A^ӤF";
		mes "oƱAѹڭ̻...";
		next;
		mes "[Y פk]";
		mes "Ʊڭ̯Ǳ¨Au...";
		mes "ƱAѹڭ̻AڦA@ݧA";
		next;
		goto L_AskQuestions;
	}
	else if (PRIEST_Q == 9) {
		mes "{bצ泣wgF...";
		mes "A{bhD¾qa";
		next;
		mes "[Y פk]";
		mes "Ʊ毫OA";
		close;
	}
}

// 2nd Test
//==========================================================
job_prist,24,187,4	script	S	110,{
	mes "[S]";
	if (BaseJob == Job_Priest) {
		mes "@A";
		next;
		mes "[S]";
		mes "q...";
		mes "AAƭnU?";
		mes "ܦnAAߦaٺ}";
		mes "ڬ۫HAA@wnnaUOH";
		next;
		mes "[S]";
		mes "LAݭnO@ƱA";
		mes "oƤOA¾צ";
		mes "O@AAȬOLAӤOLѨMƱ!";
		next;
		mes "[S]";
		mes "...A{bNnihULF?";
		next;
		switch (select("ڲ{bNih:AAڤ@U:ڭn^h")) {
		case 1:
			mes "[S]";
			mes "ܦn!";
			mes "AƤ@ihN}lAAiha";
			mes "A]iH^Ф@U~AƮɪA...!";
			close2;
			warp "job_prist",24,44;
			end;
		case 2:
			mes "[S]";
			mes "?A٭nǳƨǤ?";
			mes "SYAAɶFAihNn";
			close;
		case 3:
			mes "[S]";
			mes "?AN^ha";
			mes "HnOtܦA۳{F";
			mes "Ʊ毫OA!!";
			mes "WЧAp!";
			close2;
			warp "prontera",234,318;
			end;
		}
	}
	if (PRIEST_Q == 5) {
		mes "Ʊ毫OAAwA^!";
		mes "ڭnߧAQaqLFĤ@צ";
		next;
		mes "[S]";
		mes "ڪWrsS S.㩬ùh";
		mes "ӳåӦn?";
		next;
		mes "[S]";
		mes "ڡAL{bwgDФFAҥHӺ٩ILDЮ@...";
		mes "LiOӸڤ@ˡA@luOӷ";
		mes "!";
		next;
		mes "[S]";
		mes "ϥAHwgiӤFAڴNA@UX]צnF";
		mes "AӤFX]צa?";
		next;
		if(select("OAڤF:٤ӤF...")==1) {
			mes "[S]";
			mes "Aٮo!";
			mes "LA٬Oť@U|n";
			mes "]OFѴN|F!";
		}
		else {
			mes "[S]";
			mes "O?AݭnԲӪo";
			mes "ťAi|ıoAbı]XLX]";
		}
		next;
		mes "[S]";
		mes "ҿתX]צANOX]";
		mes "ҿקǡANOtc]ٸ";
		next;
		mes "[S]";
		mes "o@ɤWܦh]O]NӦsb";
		mes "]g`|ۭtǫH}Ѧʩm";
		next;
		mes "[S]";
		mes "ڭ̲qȡANOnXt˪!";
		mes "ߦo˰~ରo@ɱaөM!";
		next;
		mes "[S]";
		mes "A{bӤFѩҿתX]צFa?";
		mes "NOnըqAXO";
		mes "L...]oצD`aW}A";
		mes "ҥHAiHЧOq@_UAiX]צ";
		next;
		mes "[S]";
		mes "pGAѪqeA]iH@_ih";
		mes "AthiH}lF?";
		next;
		switch(select("}la:ЧAڤ@U:ڭn^h")) {
		case 1:
			mes "[S]";
			mes "A{bN}liX]צ";
			mes "ܮeաAAunX{]NiHF";
			next;
			mes "[S]";
			mes "XӶqAҥHAnp";
			mes "Aiha!";
			close2;
			warp "job_prist",24,44;
			donpcevent "X]#prst::OnEnable";
			donpcevent "S::OnDisable";
			donpcevent "S#2::OnEnable";
			end;
		case 2:
			set PRIEST_Q,6;
			mes "[S]";
			mes "?AݭnhǳƤ@U?";
			mes "SYAAɶFAihNiHF";
			close;
		case 3:
			set PRIEST_Q,6;
			mes "[S]";
			mes "??";
			mes "A~ӴNn^hF?";
			mes "ڬOStO...A]uO";
			next;
			mes "[S]";
			mes "Ai]OĤ@YA~|`";
			mes "HAiɦA^ӧa";
			close2;
			warp "prontera",234,318;
			end;
		}
	}
	else if (PRIEST_Q == 6) {
		mes "Are you ready this time?";
		mes "Complete this trial quickly,";
		mes "and become a Priest!";
		next;
		mes "[S]";
		mes "Are you ready then?";
		next;
		switch(select("I'm ready.:Please hold on.:I want to go back.")) {
		case 1:
			mes "[S]";
			mes "Now, let the spiritual training begin. For the glory of God, for peace on earth, and goodwill towards all men...";
			next;
			mes "[S]";
			mes "Go...";
			mes "Kill those";
			mes "misbegotten creatures!";
			close2;
			warp "job_prist",24,44;
			donpcevent "X]#prst::OnEnable";
			donpcevent "S::OnDisable";
			donpcevent "S#2::OnEnable";
			end;
		case 2:
			mes "[S]";
			mes "Hm? What is it you need?";
			mes "Well, no problem. You can";
			mes "afford to take your time.";
			close;
		case 3:
			mes "[S]";
			mes "What...?";
			mes "You wanna go back??";
			next;
			mes "[S]";
			mes "I understand. I suppose you have some important reason or business that you must attend to. Come back whenever you can.";
			close2;
			warp "prontera",234,318;
			end;
		}
	}
	else {
		mes "Go back!";
		close2;
		warp "prontera",234,318;
		end;
	}

OnEnable:
	enablenpc "S";
	end;

OnDisable:
	disablenpc "S";
	end;
}

job_prist,23,187,1	script	S#2	110,{
	mes "[S]";
	if (BaseJob == Job_Priest || PRIEST_Q == 5 || PRIEST_Q == 6) {
		mes "{bHbiX]A";
		mes "A٬OL@|Aӧa";
		next;
		mes "[S]";
		mes "[N|i";
		mes "FAeALh";
		close;
	}
	else {
		mes "MPAPb";
		close2;
		warp "prontera",234,318;
		end;
	}

OnInit:
	disablenpc "S#2";
	end;

OnEnable:
	enablenpc "S#2";
	end;

OnDisable:
	disablenpc "S#2";
	end;
}

-	script	X]#prst	110,{
OnInit:
	disablenpc "X]#prst";
	end;

OnEnable:
	donpcevent "Zombie1_1::OnEnable";
	donpcevent "Zombie2_1::OnEnable";
	donpcevent "Zombie3_1::OnEnable";
	donpcevent "Zombie4_1::OnEnable";
	donpcevent "Zombie5_1::OnEnable";
	initnpctimer;
	end;

Onm1:
	set .MyMobs,13;
	monster "job_prist",24,52,"ʼw",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",18,52,"",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",30,52,"",1015,1,"Z_C#prst::OnMyMobDead";
	end;

Onm2:
	monster "job_prist",21,62,"",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",27,62,"",1015,1,"Z_C#prst::OnMyMobDead";
	end;

Onm3:
	monster "job_prist",24,72,"ƺC",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",18,72,"",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",30,72,"k",1015,1,"Z_C#prst::OnMyMobDead";
	end;

Onm4:
	monster "job_prist",21,82,"",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",27,82,"g",1015,1,"Z_C#prst::OnMyMobDead";
	end;

Onm5:
	monster "job_prist",24,92,"",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",18,92,"H",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",30,92,"",1015,1,"Z_C#prst::OnMyMobDead";
	end;

OnDisable:
	disablenpc "X]#prst";
	killmonsterall "job_prist";
	end;

OnTimer300000:
	areawarp "job_prist",8,34,39,109,"prontera",234,318;
	end;

OnTimer300500:
	donpcevent "X]#prst::OnDisable";
	end;

OnTimer301500:
	donpcevent "X]#prst::OnDisable";
	donpcevent "S#2::OnDisable";
	donpcevent "S::OnEnable";
	end;

OnTimer302000:
	stopnpctimer;
	end;
}

-	script	Z_C#prst	-1,{
	end;

OnMyMobDead:
	set getvariableofnpc(.MyMobs,"X]#prst"),getvariableofnpc(.MyMobs,"X]#prst") - 1;
	end;
}

job_prist,24,44,0	script	Zombie Info	-1,1,1,{
OnTouch:
	if (BaseJob == Job_Priest) {
		mes "[S]";
		mes "ժ̶iJҳ}lp⤭";
		mes "ЧAۮǨUL";
		next;
		mes "[S]";
		mes "VLUӶǰeIN|FU@X]ϰ";
		next;
		mes "[S]";
		mes "аOAX]Ҹսаȥb";
		close;
	}
	else if (BaseJob == Job_Acolyte){
		mes "[S]";
		mes "qiJճ}lu5ɶ! u5Ӥw@!AACCaeiAXGͧa.";
		close;
	}
	end;
}

job_prist,24,52,0	script	Zombie1_1	-1,14,1,{
OnInit:
	disablenpc "Zombie1_1";
	end;

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "X]#prst::Onm1";
		donpcevent "Zombie1_1::OnDisable";
	}
	end;

OnEnable:
	enablenpc "Zombie1_1";
	end;

OnDisable:
	disablenpc "Zombie1_1";
	end;
}

job_prist,21,62,0	script	Zombie2_1	-1,17,1,{
OnInit:
	disablenpc "Zombie2_1";
	end;

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "X]#prst::Onm2";
		donpcevent "Zombie2_1::OnDisable";
	}
	end;

OnEnable:
	enablenpc "Zombie2_1";
	end;

OnDisable:
	disablenpc "Zombie2_1";
	end;
}

job_prist,24,72,0	script	Zombie3_1	-1,14,1,{
OnInit:
	disablenpc "Zombie3_1";
	end;

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "X]#prst::Onm3";
		donpcevent "Zombie3_1::OnDisable";
	}
	end;

OnEnable:
	enablenpc "Zombie3_1";
	end;

OnDisable:
	disablenpc "Zombie3_1";
	end;
}

job_prist,21,82,0	script	Zombie4_1	-1,17,1,{
OnInit:
	disablenpc "Zombie4_1";
	end;

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "X]#prst::Onm4";
		donpcevent "Zombie4_1::OnDisable";
	}
	end;

OnEnable:
	enablenpc "Zombie4_1";
	end;

OnDisable:
	disablenpc "Zombie4_1";
}

job_prist,24,92,0	script	Zombie5_1	-1,14,1,{
OnInit:
	disablenpc "Zombie5_1";
	end;

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "X]#prst::Onm5";
		donpcevent "Zombie5_1::OnDisable";
	}
	end;

OnEnable:
	enablenpc "Zombie5_1";
	end;

OnDisable:
	disablenpc "Zombie5_1";
}

job_prist,24,109,4	script	prst1_1	45,3,3,{
OnTouch:
	set .@mobs,getvariableofnpc(.MyMobs,"X]#prst");
	if (BaseJob == Job_Priest) warp "job_prist",168,17;
	else if (BaseClass == Job_Acolyte && .@mobs < 1) {
		warp "job_prist",168,17;
		donpcevent "X]#prst::OnDisable";
		donpcevent "S#2::OnDisable";
		donpcevent "S::OnEnable";
		donpcevent "X]#prst::OnDisable";
	}
	end;
}

// 3rd Test
//==========================================================
job_prist,168,45,4	script	pc]#prst	1109,8,1,{
OnTouch:
	if (BaseJob == Job_Priest) {
		mes "[pc]]";
		mes "A򲽥q|Өoئa?HH... pb̬ëa";
		mes "ɶObnƱWAOA?";
		next;
		mes "[pc]]";
		mes "ڤpc]ѯSOA@A֭ɹLa";
		mes "UAӪܡAN|AȮF";
		close;
	}
	if (BaseClass == Job_Acolyte) {
		mes "[pc]]";
		mes "@~ oO^0000FFA^000000? Oܤ[SݨF? .";
		mes "ݼˤlAOǳƭn¾^0000FFq^000000...";
		next;
		mes "[pc]]";
		mes "ګAѧA̳oبƩ^H. OhaW.";
		mes "ıoA|oئaӤ~O_ǪO.";
		next;
		mes "[pc]]";
		mes "Ano}D? .";
		mes "]ܦh䥦n¾~. O?";
		next;
		mes "[pc]]";
		mes "ަb]n, Kޤ]n, qӳO䥦HVĄD.";
		mes "L̫oqӳSULA... i?";
		next;
		mes "[pc]]";
		mes "oA@uߪi... A٬O󪺦n.";
		mes "Ҹշ|, ᪺l]|ܨW.";
		next;
		if (select("na, ڴNnF:c], ֮a") == 1) {
			mes "[pc]]";
			mes ", o˿NF! AHA]ΨӤF!";
			mes "JMAwgF¾, ڴNeA@§a.";
			next;
			mes "[pc]]";
			mes "NAKOڪBͧa! !";
			close2;
			warp "c_tower2",168,33;
			end;
		}
		mes "[pc]]";
		mes "u, n`ȳ? گuOȱonFO. .";
		mes "Anoˤl. Aťڻ@U.";
		next;
		mes "[pc]]";
		mes "AnO{b¾, ڴNeA@˫D`Ϊ§.";
		mes "oiOAolo쪺§O.";
		next;
		cutin "̽Ʈī",4;
		mes "[pc]]";
		mes "A|A̱jd@?";
		mes "AAҼ{M. n¾F~bᮬ...";
		next;
		if (select("Id!!:a!c]!") == 1) {
			mes "[pc]]";
			mes ", HGMO@˪. ܱon!";
			mes "ڴNoQdeAa!";
			next;
			mes "[pc]]";
			mes "LoiOڰeA@. .";
			mes "AAVOݧa!";
			close2;
			warp "mjolnir_05",200,200;
			end;
		}
		cutin "̽Ʈī",255;
		mes "[pc]]";
		mes ", Aʮٮϱj... AA~JxUhݬݧa.";
		mes "ڷ|@, ݧAण௸ۦ^h.";
		next;
		mes "[pc]]";
		mes "צ@ѧA|ᮬQAצ^ڨa... !";
		close;
	}
	end;
}

job_prist,168,80,4	script	F#prst	1046,8,1,{
OnTouch:
	if (BaseJob == Job_Priest) {
		mes "[F]";
		mes "MH... o˰AOSnB";
		mes "A|ܷж? ϥSOAn¾";
		next;
		mes "[F]";
		mes "F@ӨSƱ檺AơASno򨯭W";
		mes "nɶObSNqƱW";
		close;
	}
	else if (BaseClass == Job_Acolyte) {
		mes "[F]";
		mes "b䨫۪^0000FFA^000000. ЧA@UťڻXyܧa.";
		next;
		mes "[F]";
		mes "AOF|Qӷ^0000FFq^000000O?";
		mes "ڬݧAڥAXo@.";
		next;
		mes "[F]";
		mes "pGA@N, ڥiHΧڪOsAA@|.";
		mes "q{bܦ^Ǫ, unA@N٥iHAܰ䥦¾~.";
		next;
		mes "[F]";
		mes "Mo|]AůOȦӧ.";
		mes "oO@ӫܦn? unA@N, ڥiHWA.";
		next;
		if (select("ƱAiHU!:c], ֮a") == 1) {
			mes "[F]";
			mes "ܪn.";
			mes "ڴNpA@A^Ǫ̪qa.";
			next;
			mes "[F]";
			mes "q̴_nAgLܪ@qɶ!!";
			close2;
			warp "gef_dun02",210,177;
			end;
		}
		mes "[F]";
		mes "AGAѧڪN... AAnnaQQݧa.";
		mes "oiOA@ͤojn|@.";
		next;
		mes "[F]";
		mes "M, unA}f@nQ^0000FFq^000000NiHF.";
		mes "NiHqƨ䥦¾~, ڤ@˷ӼChp?";
		next;
		if (select("ڤQ¾^0000FFq^000000!:c], ֮a!") == 1) {
			mes "[F]";
			mes "n. AA]n^oӦaӤF.";
			mes "pA@AǪ̧a.";
			next;
			mes "[F]";
			mes "q̴_ݭnAgL@qܪɶ";
			close2;
			warp "gef_dun02",210,177;
			end;
		}
		mes "[F]";
		mes "ܦn... ڤѴNA@.";
		next;
		mes "[F]";
		mes "HAڬݨA, ڴN|AܵhWh.";
		close;
	}
}

job_prist,168,115,4	script	·t#prst	1272,8,1,{
OnTouch:
	if (BaseJob == Job_Priest) {
		mes "[·t]";
		mes "AP@UhWM!!";
		mes "A|@ṶnHIqAa!";
		next;
		mes "[·t]";
		mes "b, צ@ѵAAצyUMA^ha!";
		mes "AGAŦ̲`Ba!";
		close;
	}
	else if (BaseClass == Job_Acolyte) {
		mes "[·t]";
		mes "گ, H.";
		mes "AOo֪\xgLo!";
		next;
		mes "[·t]";
		mes "Qn¾^0000FFq^000000^0000FFA^000000H. AgLo,";
		mes "ֺu^h. nMڴNߨAF.";
		next;
		mes "[·t]";
		mes "٭npH... nvTڪ, ֺu^h!";
		next;
		if (select("ڪDF. ЧAڤ@a:c], ֮a") == 1) {
			mes "[·t]";
			mes "A]nX{F!";
			close2;
			warp "gl_church",145,170;
			end;
		}
		mes "[·t]";
		mes "AΦAxjF, OSΪ.";
		mes "ڥunΤ@ڤpY, NiHAH͸UqF.";
		next;
		mes "[·t]";
		mes "bڥεL·t]OӹIAe, ֺu^h!";
		next;
		if (select("ur, ЧAn:c], ֮a!") == 1) {
			mes "[·t]";
			mes "A]nX{F!";
			close2;
			warp "gl_church",145,170;
			end;
		}
		mes "[·t]";
		mes "AM٬Oܶ... sIAڶ·ЪH.";
		next;
		mes "[·t]";
		mes "AnOAX{bڭe, ڴN|A@ahW.";
		close;
	}
}

job_prist,168,150,4	script	ڭS#prst	736,8,1,{
OnTouch:
	if (BaseJob == Job_Priest) {
		mes "[ڭS]";
		mes "uO·Ъ^0000FFq^000000...";
		next;
		mes "[ڭS]";
		mes "ڨSnA. AILha.";
		close;
	}
	else if (BaseClass == Job_Acolyte) {
		mes "[ڭS]";
		mes "K......?";
		next;
		mes "[ڭS]";
		mes "A'c]w'?";
		next;
		mes "[ڭS]";
		mes "ڥiHA@ɤW]I";
		mes "O....";
		next;
		mes "[ڭS]";
		mes "A@쯫¾";
		mes "pGA...";
		next;
		mes "[ڭS]";
		mes "٦, unA@N, HɳiHl.";
		mes "p@өҦH|`ȻPA, ]|jaOAWr.";
		next;
		if (select("ڵA:hաAc]!") == 1) {
			mes "[ڭS]";
			mes "ڭ̴Nñqa...";
			mes "AO藍|ᮬ...";
			next;
			mes "[ڭS]";
			mes "Ah䦳ڦba.";
			mes "쨺̦AӶiñq.";
			close2;
			warp "glast_01",200,203;
			end;
		}
		mes "[ڭS]";
		mes "...uOjPM..";
		mes "ٷ|ӧA...";
		next;
		mes "[ڭS]";
		mes "ڥiOSaFAǳƤF]O...";
		mes "oA٥iHh[.";
		next;
		mes "[ڭS]";
		mes ", ANLha";
		close;
	}
}

job_prist,168,180,4	script	prst2_1	45,3,3,{
OnTouch:
	if (BaseJob == Job_Priest) warp "job_prist",98,40;
	else if (BaseClass == Job_Acolyte) {
		warp "job_prist",98,40;
		donpcevent "X]2::OnEnable";
	}
	end;
}

// 4th Test
//==========================================================
job_prist,1,2,1	script	X]2	110,1,1,{
OnInit:
	disablenpc "X]2";
	end;

OnEnable:
	donpcevent "X]3::OnEnable";
	donpcevent "Mummy2_1::OnEnable";
	donpcevent "X]4::OnEnable";
	end;

Onm1:
	monster "job_prist",90,55,"g",1041,1;
	monster "job_prist",105,55,"]",1041,1;
	end;

Onm2:
	monster "job_prist",90,70,"ź",1041,1;
	monster "job_prist",105,70,"ik",1041,1;
	end;

Onm3:
	monster "job_prist",90,85,"",1041,1;
	monster "job_prist",105,85,"q",1041,1;
	end;

OnDisable:
	disablenpc "X]2";
	killmonsterall "job_prist";
	end;
}

job_prist,90,55,0	script	X]3	-1,15,1,{
OnInit:
	disablenpc "X]3";
	end;

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "X]2::Onm1";
		donpcevent "X]3::OnDisable";
	}
	end;

OnEnable:
	enablenpc "X]3";
	end;

OnDisable:
	disablenpc "X]3";
	end;
}

job_prist,90,70,0	script	Mummy2_1	-1,15,1,{
OnInit:
	disablenpc "Mummy2_1";
	end;

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "X]2::Onm2";
		donpcevent "Mummy2_1::OnDisable";
	}
	end;

OnEnable:
	enablenpc "Mummy2_1";
	end;

OnDisable:
	disablenpc "Mummy2_1";
	end;
}

job_prist,90,85,0	script	X]4	-1,15,1,{
OnInit:
	disablenpc "X]4";
	end;

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "X]2::Onm3";
		donpcevent "X]4::OnDisable";
	}
	end;

OnEnable:
	enablenpc "X]4";
	end;

OnDisable:
	disablenpc "X]4";
	end;
}

job_prist,98,105,4	script	prst3_1	45,3,3,{
OnTouch:
	if (BaseJob == Job_Priest) {
		warp "prt_church",15,36;
		end; 
	}
	else if (BaseClass == Job_Acolyte) {
		set PRIEST_Q,7;
		warp "prt_church",16,37;
		donpcevent "X]2::OnDisable";
	}
	end;
}

// Functions
//==========================================================
function	script	F_FatherRub	{
	if (PRIEST_Q != 0) {
		if (PRIEST_Q == 1) {
			mes "OƱ榨qAư...";
			mes "wgХD";
			mes "}lF§AȥVO̫ܳᦨq";
			next;
			mes "[ |dk]";
			mes "U|ܡAХ{o઺׹D|ݬ...";
			mes "o̥iҿ׬Oڭ̪оªta";
			next;
			mes "[ |dk]";
			mes "AUӨ§aha";
			close2;
			savepoint "prt_fild03",361,255;
			set PRIEST_Q,2;
			end;
		}
		else if (PRIEST_Q == 2) {
			mes "֨U@Ө§aha";
			mes "@Wp";
			close;
		}
		mes "S^o̤FO?";
		mes "֦^h~Aצ";
		close;
	}
	mes "OAƶܡAAoӦƱ?";
	close;
}

function	script	F_MotherMart	{
	if (PRIEST_Q != 0) {
		if (PRIEST_Q == 1) {
			mes "Aƭצ̰?";
			mes "LӨڤenLt~@A";
			next;
			mes "[פk fH]";
			mes "б' ''Y פk'aA@OA..";
			close;
		}
		else if (PRIEST_Q == 2) {
			mes "ڡAOAƭצ̧a?";
			mes "DӨӨWF~";
			mes "ڭ̲qnǹFaWҦN";
			next;
			mes "[פk fH]";
			mes "qA]@wnùJrӰ";
			mes "ɫUNiH̸ѩX...";
			next;
			mes "[פk fH]";
			mes "A~§a...";
			mes "@OA...";
			close2;
			savepoint "moc_fild07",35,355;
			set PRIEST_Q,3;
			end;
		}
		else if (PRIEST_Q == 3) {
			mes "nd󦹡A~Uha...";
			close;
		}
		mes "S^o?";
		mes "~hצa";
		close;
	}
	mes "OAƶܡAAoӦƱ?";
	close;
}

function	script	F_FatherYos	{
	if (PRIEST_Q != 0) {
		if (PRIEST_Q == 2 || PRIEST_Q == 1) {
			mes "AOAȭצ̰";
			mes "ӨӨWAF";
			next;
			mes "[ J]";
			mes "LӨڤenLt~@A";
			mes "@yܡAAaF";
			next;
			mes "[ J]";
			mes "^аT{ha";
			close;
		}
		else if (PRIEST_Q == 3) {
			mes "AOqצ̰";
			mes "ӨӨWAF";
			next;
			mes "[ J]";
			mes "FqWnD۰dA";
			mes "Ф@wnjͦsUh";
			next;
			mes "[ J]";
			mes "^аha";
			mes "A§F";
			mes "@WWAF";
			mes "^h]np߮@";
			close2;
			savepoint "prt_fild00",206,230;
			set PRIEST_Q,4;
			end;
		}
		else if (PRIEST_Q == 4) {
			mes "٨S^а?";
			mes "nbo̤@l?";
			close;
		}
		mes "nbo̪F";
		mes "֦qa";
		close;
	}
	mes "OAƶܡAAoӦƱ?";
	close;
}

